
#Include "fbstrings.bi"

Using FB.Strings

Dim As String result()
Dim As Integer numParts

numParts = StrSplitByChar("The quick brown fox jumps over lazy dog.", "aeiou", result())

For i As Integer = 0 To numParts - 1
	Print i;": "; result(i)
Next 

Sleep